home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 2 / CU Amiga Magazine's Super CD-ROM 02 (1996)(EMAP Images)(GB)[!][issue 1996-04].iso / magazine / amiga_e / epp / pmodules / exp.e < prev    next >
Text File  |  1980-01-05  |  111b  |  10 lines
  1. OPT TURBO
  2.  
  3. PROC exp(n, p)
  4.   /* Computes n**p. */
  5.   DEF i, x=1
  6.   FOR i:=1 TO p DO x:=x*n
  7. ENDPROC x
  8.   /* exp */
  9.  
  10.